home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / MacHelp / MacHelp 1 / MacHelp Fonts⁄DAs / background_2461.txt < prev    next >
Encoding:
Text File  |  1988-02-15  |  4.2 KB  |  212 lines
  1. -- background: 2461 from stack: in
  2. -- bmap block id: 2217
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=280 top=247 right=274 bottom=305
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1013 / 1013
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Next
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to next card
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 6 (button)
  28. -- low flags: 00
  29. -- high flags: 0000
  30. -- rect: left=253 top=247 right=274 bottom=279
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 1014 / 1014
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Prev
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go to previous card
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 7 (button)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=448 top=247 right=272 bottom=478
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 1012 / 1012
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Return
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   visual effect iris close
  61.   pop card
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 12 (field)
  67. -- low flags: 00
  68. -- high flags: 2007
  69. -- rect: left=98 top=91 right=242 bottom=481
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Description
  78.  
  79.  
  80. -- part 20 (button)
  81. -- low flags: 00
  82. -- high flags: 8000
  83. -- rect: left=88 top=243 right=278 bottom=142
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: 
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   go to stack "Apple Sac Home "
  95. end mouseUp
  96.  
  97.  
  98.  
  99.  
  100. -- part 21 (button)
  101. -- low flags: 00
  102. -- high flags: 2000
  103. -- rect: left=143 top=244 right=278 bottom=182
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 32670 / 32670
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: 
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   show all cards
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 23 (button)
  120. -- low flags: 00
  121. -- high flags: 8000
  122. -- rect: left=316 top=246 right=274 bottom=387
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: 
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   Ask "Find what item ?"
  134.   put it into Finding
  135.   if it is empty then exit mouseup
  136.   put false into Q
  137.   repeat until Q
  138.     find Finding
  139.     repeat with x= 1 to 600
  140.     end repeat
  141.     answer "This one ?" with "Yes" or "No"
  142.     if it is "Yes" then put true into Q
  143.   end repeat
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 24 (button)
  149. -- low flags: 00
  150. -- high flags: A000
  151. -- rect: left=393 top=250 right=272 bottom=444
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: 
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   flash 2
  163.   doMenu "New Card"
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 25 (button)
  169. -- low flags: 00
  170. -- high flags: 0000
  171. -- rect: left=93 top=65 right=83 bottom=178
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: Compact Stack
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   put the size of this stack into var
  183.   ANSWER "This stack takes this much space" with var
  184.   put the freesize of this stack into var
  185.   ANSWER "You are wasting this much space" with var
  186.   if var > 0 then
  187.     answer "Would you like to compact this stack?" with No or Yes
  188.     if it is "yes"
  189.     then domenu "compact stack"
  190.   end if
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 26 (button)
  196. -- low flags: 00
  197. -- high flags: 8000
  198. -- rect: left=386 top=62 right=89 bottom=483
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: 
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   show menuBar
  210. end mouseUp
  211.  
  212.